open(FH,"</Users/yaping/Documents/workspace/result/ASM-2011-1-9/methylCGsRich_ASM_AllSnp_normalMerge_pValue_ASMblock_overlap.5.txt");
my @in=<FH>;
chomp(@in);
close(FH);
my @out;
foreach my $line(@in){
	my @splitin=split "\t",$line;
	my @range=split "~",$splitin[2];
	push(@out,"$splitin[0]\tnormal-tumor\tblock\t$range[0]\t$range[1]\t0\t\+\t\.\n");
}
open(OUT,">/Users/yaping/Documents/workspace/result/ASM-2011-1-9/methylCGsRich_ASM_AllSnp_normal-tumor_block_overlap.5.gtf");
print OUT @out;
close(OUT);
